﻿Public Class ven_factconf

   

    Private Sub btn_okfactconf_Click(sender As Object, e As EventArgs) Handles btn_okfactconf.Click
        If rb50.Checked = True Then
            Ke = 1
        End If
        If rb90.Checked = True Then
            Ke = 0.897
        End If
        If rb95.Checked = True Then
            Ke = 0.868
        End If
        If rb99.Checked = True Then
            ke = 0.814
        End If
        If rb99p9.Checked = True Then
            ke = 0.753
        End If
        If rb99p99.Checked = True Then
            ke = 0.702
        End If
        If rb99p999.Checked = True Then
            ke = 0.659
        End If
        If rb99p9999.Checked = True Then
            ke = 0.62
        End If
        Me.Close()
    End Sub
End Class